home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Events.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  857 b   |  44 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {Created: Sunday, January 6, 1991 at 10:35 PM}
  5. {    Events.p}
  6. {    Pascal Interface to the Macintosh Libraries}
  7. {}
  8. {        Copyright Apple Computer, Inc.    1985-1989}
  9. {        All rights reserved}
  10. {}
  11. {}
  12.  
  13.  
  14.  
  15. {    RMS    4/3/91        Modified to exclude declarations already in the THINK Pascal built-in interfaces    }
  16.  
  17.  
  18.  
  19. unit Events;
  20. interface
  21.     uses
  22.         Types, Quickdraw;
  23.  
  24.     const
  25.         osEvt = 15;
  26.  
  27. { event mask equates }
  28.         highLevelEventMask = 1024;
  29.         osMask = -32768;
  30.  
  31. { event message equates }
  32.         osEvtMessageMask = $FF000000;
  33.  
  34. { OSEvent Messages }
  35.         mouseMovedMessage = $FA;
  36.         suspendResumeMessage = $01;
  37.         resumeFlag = 1;             { bit 0 of message indicates resume vs suspend }
  38.         convertClipboardFlag = 2;   { bit 1 in resume message indicates clipboard change }
  39.  
  40.  
  41. implementation
  42. end.
  43.  
  44.